# Perl example - fruits3
# Polyglot Language Project
# http://groups.google.com/group/comp-lang-polyglot

# File: fruits3.pl
# Date: 9-Aug-2008

print "Perl Version: $]\n";
print "OS: $^O\n";
print "---------------------- \n";

@fruits = ();
$fruits[0] = "apple";
$fruits[1] = "orange";
$fruits[2] = "grape";

print "$fruits[2]\n";
